home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Thunder.AMOS / Thunder.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  950 b   |  30 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Screen Open 0,320,256,32,Lowres : Flash Off : Curs Off : Hide : Cls 0
  11. Palette 0,$0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F,$E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  12.  
  13. A#=3
  14. STEG#=12
  15.  
  16. Do 
  17.  
  18.    Ink C#
  19.    X=159+Sin(CNT#+Cos(CNT#*0.9+Sin(CNT#)*12)*22)*N#+Sin(CNT#/8)*160+Rnd(8)-4
  20.    Y=125+Cos(CNT#+Sin(CNT#*1.03)*22)*N#+Cos(CNT#/8)*128+Rnd(8)-4
  21.    If OLDX<>0 and OLDY<>0 Then Draw X,Y To OLDX,OLDY
  22.    OLDX=X
  23.    OLDY=Y
  24.    N#=Sin(CNT#*2)*24*A#
  25.    CNT#=CNT#+0.5*Abs(Sin(C#*90)*STEG#)
  26.    A#=A#-0.001
  27.    C#=C#+0.1
  28.    If C#>31 Then C#=1
  29.  
  30. Loop